home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / 3d / irit50src.lha / irit5 / scripts / triang.irt < prev    next >
Encoding:
Text File  |  1995-01-01  |  1.3 KB  |  47 lines
  1. #
  2. # Triangular confusing shapes...
  3. #
  4. #                Gershon Elber, January 1995.
  5. #
  6.  
  7. Wid = 0.5;
  8. Frame = ( ctlpt( E3, 0, -1, -Wid ) +
  9.       ctlpt( E3, 0, -1,  Wid ) +
  10.       ctlpt( E3, 0,  1,  Wid ) +
  11.       ctlpt( E3, 0,  1, -Wid ) +
  12.       ctlpt( E3, 0, -1, -Wid ) ) * sc( 0.2 ) * ty( 0.8 );
  13. Frame1 = Frame;
  14. Frame2 = Frame * rz( 120 );
  15. Frame3 = Frame * rz( 240 );
  16. Frame4 = Frame;
  17. Tri1 = sFromCrvs( list( Frame1, Frame2, Frame3, frame4 ),
  18.           2 );
  19. interact( list( Tri1, axes ) );
  20.  
  21.  
  22. Wid = 0.5;
  23. Frame1 = ( ctlpt( E3, 0, -1, -Wid ) +
  24.        ctlpt( E3, 0, -1,  Wid ) +
  25.        ctlpt( E3, 0,  1,  Wid ) +
  26.        ctlpt( E3, 0,  1, -Wid ) +
  27.        ctlpt( E3, 0, -1, -Wid ) ) * sc( 0.2 ) * ty( 0.8 );
  28. Frame2 = ( ctlpt( E3, 0, -1,  Wid ) +
  29.        ctlpt( E3, 0,  1,  Wid ) +
  30.        ctlpt( E3, 0,  1, -Wid ) +
  31.        ctlpt( E3, 0, -1, -Wid ) +
  32.        ctlpt( E3, 0, -1,  Wid ) ) * sc( 0.2 ) * ty( 0.8 ) * rz( 120 );
  33. Frame3 = ( ctlpt( E3, 0,  1,  Wid ) +
  34.        ctlpt( E3, 0,  1, -Wid ) +
  35.        ctlpt( E3, 0, -1, -Wid ) +
  36.        ctlpt( E3, 0, -1,  Wid ) +
  37.        ctlpt( E3, 0,  1,  Wid ) ) * sc( 0.2 ) * ty( 0.8 ) * rz( 240 );
  38. Frame4 = ( ctlpt( E3, 0,  1, -Wid ) +
  39.        ctlpt( E3, 0, -1, -Wid ) +
  40.        ctlpt( E3, 0, -1,  Wid ) +
  41.        ctlpt( E3, 0,  1,  Wid ) +
  42.        ctlpt( E3, 0,  1, -Wid ) ) * sc( 0.2 ) * ty( 0.8 );
  43. Tri2 = sFromCrvs( list( Frame1, Frame2, Frame3, frame4 ),
  44.           2 );
  45. interact( Tri2 );
  46. save("triang", Tri2 );
  47.